home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / ElectricAlias / electricAlias.tcl
Text File  |  1995-03-07  |  26KB  |  813 lines
  1. # FILE: electricAlias.tcl
  2. #
  3. # LAST UPDATE: 01/25/93 2:41:51 PM
  4. #
  5. # This file contains the following TCL procedures:
  6. #
  7. #   electricAlias-version   -- returns the current version of electricAlias
  8. #   electricAlias-help      -- opens 'electricAlias help' read-only
  9. #   electricAlias-on        -- turns on (enables) electricAlias-insert
  10. #   electricAlias-off       -- turns off (disables) electricAlias-insert
  11. #   electricAlias-mode      -- set/list current electricAlias mode
  12. #   electricAlias-def       -- creates an electricAlias definition
  13. #   electricAlias-var       -- creates an electricAlias variable
  14. #   electricAlias-exists    -- returns true/false 
  15. #   electricAlias-list      -- returns a list of electricAlias definitions
  16. #   electricAlias-names     -- returns a list of active electricAliases
  17. #   electricAlias-idefine   -- interactive define
  18. #   electricAlias-iundefine -- interactive undefine
  19. #   electricAlias-removeall -- removes all electricAlias definitions
  20. #   electricAlias-undefine  -- removes an electricAlias definition
  21. #   electricAlias-insert    -- on-the-fly template insertion (the real guts of this thing) 
  22. #   electricAlias           -- for compatibility with old version
  23. #   getAlias                -- returns a specific current alias definition
  24. #   nextStop                -- finds the next template stop
  25. #   prevStop                -- finds the previous template stop
  26. #   askalias                -- prompts the user for a value to set an alias variable
  27. #   changeMode              -- new version to enable electricAlias (renames old
  28. #                              version to 'original-changeMode')
  29. #
  30. # 'electricAlias-insert' (bound to TAB) provides automatic template/aliasing on the fly.
  31. #
  32. #    For documentation, see 'electricAlias help'. For examples, see 'aliases'. 
  33. #
  34. #    To use, simply place this file place in a folder named $HOME:Tcl:electricAlias:
  35. #    and add 'source $HOME:Tcl:electricAlias:electricAlias.tcl' to AlphaBits.tcl.
  36. #    Also create a folder named $HOME:TCL:electricAlias:Aliases and make sure to place
  37. #    at least a file named 'Aliases' in it with your default aliases.
  38. #    If you wish to use the language extensions feature, place respective
  39. #    files 'Aliases.Tcl', 'Aliases.C', etc.. there as well.
  40. #
  41. # IMPORTANT NOTE
  42. #   *********************************************************************
  43. #   * When changing to a mode for the first time in an Alpha session    *
  44. #   * (e.g. editing a C program), there may be a noticable delay as the *
  45. #   * appropriate aliases are loaded.  This is done rather than loading *
  46. #   * everything at startup to save memory and startup time.  This only *
  47. #   * occurs once per session per mode.                                 *
  48. #   *********************************************************************
  49. #
  50. #
  51. # SEE ALSO unknown.tcl, date.tcl, update.tcl, number.tcl
  52. #
  53. ################################################################################
  54.  
  55. # COPYRIGHT:
  56. #
  57. #    Copyright ⌐ 1992,1993 by David C. Black
  58. #    All rights reserved.
  59. #
  60. #    Redistribution and use in source and binary forms are permitted
  61. #    provided that the above copyright notice and this paragraph are
  62. #    duplicated in all such forms and that any documentation,
  63. #    advertising materials, and other materials related to such
  64. #    distribution and use acknowledge that the software was developed
  65. #    by David C. Black.
  66. #
  67. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  68. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  69. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  70. #
  71. ################################################################################
  72.  
  73. # AUTHOR
  74. #
  75. #    David C. Black
  76. #    Internet: black@mpd.tandem.com (preferred)
  77. #    GEnie:    D.C.Black
  78. #    USnail:   6217 John Chisum Lane, Austin, TX 78749
  79. #
  80. ################################################################################
  81.  
  82. # HISTORY
  83. #                  
  84. # modified who rev reason
  85. # -------- --- --- ------ 
  86. # 01/25/93 DCB 1.8 Execute 'activateHook' after loading
  87. #                  Now use electricAlias-changemode instead of original-changemode
  88. # 01/23/93 DCB 1.7 Changed default locations
  89. #                  Split electricAlias into multiple specialized proc's
  90. # 01/06/93 DCB 1.6 Removed electricEnter, date, update, number to
  91. #                  separate .tcl files
  92. #                  Simplified installation
  93. #                  Added weekday, month, day, year to date proc
  94. #                  Fixed electricEnter & ñ╟TCL_COMMAND╚ to work at global level
  95. #                  Changed bind to TAB
  96. #                  Added electricAlias help sub-command
  97. #                  'delete' now requires MODE
  98. #                  'add' renamed to 'interactive-add'
  99. #                  'remove' renamed to 'interactive-remove'
  100. #                  'list','names' & 'removeall' now allow restriction to a particular mode
  101. #                  'define' & 'variable' now return definition if not provided
  102. #                  Added askalias proc for use in definitions
  103. #                  Added getAlias proc
  104. #                  Ñ-templates now require that they also be at end of line
  105. #                  Corrected \b\b && ^\b substitutions
  106. #                  Modified temporary marks to be window specific
  107. #                  Added 'update' proc
  108. # 11/23/92 DCB 1.5 Included definition of 'nextStop' proc
  109. #                  Changed 'stop's to 'stÑp's to avoid collisions with permanent marks
  110. #                  aliasmode is now forced to lowercase
  111. #                  'electricAlias mode' without arg now 'return's the mode
  112. #                  Added 'electricAlias removeall' command
  113. #                  Fixed 'electricAlias list' bug with variables
  114. #                  Nil-mode alias variable now treated as global
  115. #                  Reversed ordering of HISTORY
  116. # 11/18/92 DCB 1.4 'electricAlias mode' now uses/require MODE argument
  117. #                  Modified 'date' proc
  118. # 11/17/92 DCB 1.3 Fixed nasty missing \] in ñ╟TCL_COMMAND╚
  119. # 11/16/92 DCB 1.2 Prevent Ñ from appearing in variable mode definitions
  120. #                  ñ╟TCL_COMMAND╚ now does each invocation separately
  121. #                  ñ╟TCL_COMMAND╚ now uses [eval]
  122. #                  One minor typo
  123. #                  Non-Ñ templates are now recognized at the beginning of a line
  124. #                  electricEnter now inserts in the correct window
  125. #                  Documented 'date' proc & added 'number' proc (useful in aliases)
  126. #                  Minor comment editing/formatting
  127. # 11/15/92 DCB 1.1 Added {version} command
  128. #                  Code to sub \n for \r in {define} and {variable}
  129. #                  Limit variable substitutions to 99 per template (avoid infinite)
  130. #                  Limit Ñ mode templates to non-nil major modes
  131. #                  Added electric commands ñ╟TCL_COMMAND╚
  132. # 11/14/92 DCB 1.0 Original
  133. ################################################################################
  134.  
  135. # DESIGN NOTES
  136. # 
  137. # electricAlias uses a single array ALIAS to store all of its data. Aliases 
  138. # themselves are stored as ALIAS(mode,name). This means that commas are not 
  139. # allowed in mode names (not a severe restriction). State information is 
  140. # stored in ALIAS(name). 
  141. # 
  142. # To make it easier to undo an unintentional template, insertText is called
  143. # once with the normal insertion of a space.  If a template succeeds, then the
  144. # matched word is replaced.  To get back to the plain insertion, just UNDO
  145. # (CMD-Z) twice!  To undo all the way you need one more undo.
  146. #
  147. # Also, if text is selected then the template checking is always abandoned
  148. # in favor of a real space.
  149. # 
  150. # WARNING: If binding to another key is desired, be sure to change the
  151. # definition of $bindKey appropriately.
  152. #
  153. # Use of the bullet (Ñ) to flag stops was arbitrary to some extent.  It had
  154. # to be something easy to use, but not a normal part of programming languages.
  155. # It also needed to be something that would not need special escaping in a
  156. # regular expression.  The same is true for alias variables.
  157. #
  158. ################################################################################
  159.  
  160. # IDEA/REQUEST/TODO
  161. # 
  162. # electricFunc -or- How to recognize procedural definitions on the fly so 
  163. # that later instantiations/calls can automatically insert the correct
  164. # template?  This should be extensible to several languages.
  165. #
  166. # For example in C, I can define 'int max(int a,int b) { return a>b ? a : b }'.
  167. # Later when I type 'x = max(', I would get 'x = max(a,b)' with 'a,b' 
  168. # automatically selected.
  169. # 
  170. # In Verilog, this is complicated by name parameters. For example a definition:
  171. # 'module myAnd (y,a,b); input a,b; output y; assign y = a & b; endmodule'
  172. # should be instantiated with 'myAnd THIS1(.a(a_wire),.b(b_wire));'.
  173. # 
  174. # The justification for the entire electricFunc concept is that frequently
  175. # modules may have literally tens of connections and leaving one out or
  176. # misnaming can be disasterous. The same happens occasionally in C or you
  177. # forget the names of the parameters (more likely).
  178. #
  179. ################################################################################
  180.  
  181. #message "Loading electricAlias.tcl"
  182.  
  183. # Define global array for state/alias data
  184. if {[info exists ALIAS(active)] == 0} {
  185.     if {[info exists ALIAS] == 1} {
  186.         # Its scalar and we need an array
  187.         unset ALIAS
  188.     }
  189.     set ALIAS(active) 1
  190.     set ALIAS(mode)   "tcl"
  191.     set ALIAS(modes)  {tcl,}
  192. }
  193. #
  194. ################################################################################
  195.  
  196. proc electricAlias-version {} {
  197.     return "electricAlias version 1.8"
  198. }
  199. #endproc electricAlias-version
  200. ##############################################################################
  201.  
  202. proc electricAlias-help {} {
  203.     set helpDirs {$HOME:Help $HOME}
  204.     set helpFile "electricAlias Help"
  205.     foreach helpDir $helpDirs{
  206.         if {[file exists $helpDir:$helpFile} {
  207.             edit -r -m $helpDir:$helpFile
  208.             return
  209.         }
  210.     }
  211. }
  212. #endproc electricAlias-help
  213. ##############################################################################
  214.  
  215. proc electricAlias-on {} {
  216.     global ALIAS
  217.     set ALIAS(active) 1
  218. }
  219. #endproc electricAlias-on
  220. ##############################################################################
  221.  
  222. proc electricAlias-off {} {
  223.     global ALIAS
  224.     set ALIAS(active) 0
  225. }
  226. #endproc electricAlias-off
  227. ##############################################################################
  228.  
  229. proc electricAlias-mode {args} {
  230.     global ALIAS
  231.     set argc [llength $args]
  232.     set aliasmode $ALIAS(mode)
  233.     if {$argc > 1} {
  234.         error "Usage: electricAlias-mode ?NAME?"
  235.     }
  236.     if {$argc == 0} {
  237.         return $aliasmode
  238.     }
  239.     set aliasmode [string tolower [lindex $args 0]]
  240.     if {[regexp {[,]} $aliasmode]} {
  241.         error "Alias modes may not include commas"
  242.     }
  243.     set ALIAS(active) 1
  244.     regsub {^Ñ} "$aliasmode" "" aliasmode
  245.     set ALIAS(mode) "$aliasmode"
  246.     if {[lsearch $ALIAS(modes) $aliasmode,] < 0} {
  247.         lappend ALIAS(modes) $aliasmode,
  248.     }
  249.     #message "Aliasmode $aliasmode"    
  250. }
  251. #endproc electricAlias-mode
  252. ##############################################################################
  253.  
  254. proc electricAlias-def {args} {
  255.     global ALIAS
  256.     set aliasmode [string tolower [lindex $args 0]]
  257.     set argc [llength $args]
  258.     if {$argc < 2 || $argc > 3} {
  259.         error "Usage: electricAlias-def MODE NAME ?DEFINITION?"
  260.     }
  261.     set aliasmode [string tolower [lindex $args 0]]
  262.     if {[regexp {[,]} $aliasmode]} {
  263.         error "Alias modes may not include commas"
  264.     }
  265.     set name      [lindex $args 1]
  266.     if {$argc == 2} {
  267.         return [getAlias $aliasmode $name]
  268.     }
  269.     set defn      [lindex $args 2]
  270.     regsub -all "\n" $defn "\r" defn
  271.     set ALIAS($aliasmode,$name) $defn
  272.     if {[lsearch $ALIAS(modes) $aliasmode,] < 0} {
  273.         lappend ALIAS(modes) $aliasmode,
  274.     }
  275. }
  276. #endproc electricAlias-def
  277. ##############################################################################
  278.  
  279. proc electricAlias-var {args} {
  280.     global ALIAS
  281.     set aliasmode [string tolower [lindex $args 0]]
  282.     set argc [llength $args]
  283.     if {$argc < 2 || $argc > 3} {
  284.         error "Usage: electricAlias-var MODE NAME ?DEFINITION?"
  285.     }
  286.     set aliasmode [string tolower [lindex $args 0]]
  287.     if {[regexp {[,]} $aliasmode]} {
  288.         error "Alias modes may not include commas"
  289.     }
  290.     set name      [lindex $args 1]
  291.     if {$argc == 2} {
  292.         return [getAlias $aliasmode $name]
  293.     }
  294.     set defn      [lindex $args 2]
  295.     regsub -all "\n" $defn "\r" defn
  296.     set ALIAS($aliasmode,ñ\{$name\}) $defn
  297.     if {[lsearch $ALIAS(modes) $aliasmode,] < 0} {
  298.         lappend ALIAS(modes) $aliasmode,
  299.     }
  300. }
  301. #endproc electricAlias-var
  302. ##############################################################################
  303.  
  304. proc electricAlias-exists {args} {
  305.     global ALIAS
  306.     set argc [llength $args]
  307.     if {$argc != 2} {
  308.         error "Usage: electricAlias-exists MODE NAME"
  309.     }
  310.     set aliasmode [string tolower [lindex $args 0]]
  311.     set name [lindex $args 1]
  312.     return [info exists ALIAS($aliasmode,$name)]
  313. }
  314. #endproc electricAlias-exists
  315. ##############################################################################
  316.  
  317. proc electricAlias-list {args} {
  318.     global ALIAS
  319.     set argc [llength $args]
  320.     set aliasmode $ALIAS(mode)
  321.     if {$argc > 1} {
  322.         error "Usage: electricAlias-list ?MODE?"
  323.     }
  324.     if {$argc == 1} {
  325.         set theMode [string tolower [lindex $args 0]]
  326.         if {[regexp {[,]} $theMode]} {
  327.             error "Alias modes may not include commas"
  328.         }
  329.     } else {
  330.         set theMode ""
  331.     }
  332.     set list {}
  333.     set count 1
  334.     foreach name [array names ALIAS] {
  335.         incr count
  336.         set index [split $name ","]
  337.         if {[llength $index] >= 2} {
  338.             set name [join [lrange $index 1 end] ","]
  339.             set aliasmode [lindex $index 0]
  340.             if {$theMode == "" || $aliasmode == $theMode || "$aliasmode" == "Ñ$theMode"} {
  341.                 lappend list [getAlias $aliasmode $name]
  342.             }
  343.         }
  344.     }
  345.     #endforeach
  346.     return [join [lsort $list] "\r"]
  347. }
  348. #endproc electricAlias-list
  349. ##############################################################################
  350.  
  351. proc electricAlias-names {args} {
  352.     global ALIAS
  353.     set argc [llength $args]
  354.     set aliasmode $ALIAS(mode)
  355.     if {$argc > 1} {
  356.         error "Usage: electricAlias-names ?MODE?"
  357.     }
  358.     if {$argc == 1} {
  359.         set theMode [string tolower [lindex $args 0]]
  360.         if {[regexp {[,]} $theMode]} {
  361.             error "Alias modes may not include commas"
  362.         }
  363.     } else {
  364.         set theMode ""
  365.     }
  366.     set list {}
  367.     foreach name [array names ALIAS] {
  368.         set index [split $name ","]
  369.         if {[llength $index] < 2} {
  370.             continue
  371.         }
  372.             if {$theMode == "" || $aliasmode == $theMode || "$aliasmode" == "Ñ$theMode"} {
  373.             lappend list "$name"
  374.         }
  375.     }
  376.     #endforeach
  377.     return [lsort $list]
  378. }
  379. #endproc electricAlias-names
  380. ##############################################################################
  381.  
  382. proc electricAlias-idefine {} {
  383.     global ALIAS
  384.     set aliasmode $ALIAS(mode)
  385.     set list [lsort $ALIAS(modes)]
  386.     catch {set name [eval [concat {prompt "Add mode,name:" "" Modes} $list]]}
  387.     if {[info exists name] == 0} { return }
  388.     if {$name == ""} { return }
  389.     if {[string first $name ","] < 0} {
  390.         set aliasmode [string range $name 0 [expr {$ind-1}]]
  391.         set name "$aliasmode,$name"
  392.     }
  393.     if {$name == ""} { return }
  394.     if {[info exists ALIAS($name)} {
  395.         if {[askyesno "Replace existing definition?"] != "Yes"} { return }
  396.     }
  397.     set defn [prompt "Definition of \"$name\":" ""]
  398.     if {$defn == ""} { return }
  399.     set ALIAS($name) $defn
  400.     message "Defined $name"
  401. }
  402. #endproc electricAlias-idefine
  403. ##############################################################################
  404.  
  405. proc electricAlias-iundefine {} {
  406.     global ALIAS
  407.     set list [electricAlias-names]
  408.     catch {set name [eval [concat {prompt {Remove mode,alias:} [lindex $list 0] Alias} $list]]}
  409.     if {[info exists name]} {
  410.         if {[string first $name ","] >= 0} {
  411.             unset ALIAS($name)
  412.             message "Removed $name"
  413.             unset name
  414.         }
  415.     }
  416. }
  417. #endproc electricAlias-iundefine
  418. ##############################################################################
  419.  
  420. proc electricAlias-removeall {args} {
  421.     global ALIAS
  422.     set argc [llength $args]
  423.     set aliasmode $ALIAS(mode)
  424.     if {$argc > 1} {
  425.         error "Usage: electricAlias-removeall ?MODE?"
  426.     }
  427.     if {$argc == 1} {
  428.         set theMode [string tolower [lindex $args 0]]
  429.         if {[regexp {[,]} $theMode]} {
  430.             error "Alias modes may not include commas"
  431.         }
  432.     } else {
  433.         set theMode ""
  434.     }
  435.     foreach name [array names ALIAS] {
  436.         if {[string first "," $name] >= 0} {
  437.             set aliasmode = [lindex [split $name ","] 0]
  438.             if {$theMode == "" || $aliasmode == $theMode || "$aliasmode" == "Ñ$theMode"} {
  439.                 unset ALIAS($name)
  440.             }
  441.         }
  442.     }
  443.     #endforeach
  444. }
  445. #endproc electricAlias-removeall
  446. ##############################################################################
  447.  
  448. proc electricAlias-undefine {aliasmode name} {
  449.     global ALIAS
  450.     set aliasmode [string tolower $aliasmode]
  451.     if {[regexp {[,]} $aliasmode]} {
  452.         error "Alias modes may not include commas"
  453.     }
  454.     if {[info exists ALIAS($aliasmode,$name)] == 0} {
  455.         error "electricAlias does not exist!"
  456.     }
  457.     unset ALIAS($aliasmode,$name)
  458. }
  459. #endproc electricAlias-undefine
  460. ##############################################################################
  461.  
  462. proc electricAlias-insert {args} {
  463.     global ALIAS
  464.     set aliasmode $ALIAS(mode)
  465.     set bindKey "\t"
  466.     set argc [llength $args]
  467.  
  468.     if {$argc == 0} {
  469.         if {[getSelect]   != "" }  then {
  470.             replaceText [getPos] [selEnd] $bindKey
  471.             forwardChar
  472.             return
  473.         }
  474.         if {$ALIAS(active) == 0} {
  475.             insertText $bindKey
  476.             return
  477.         }
  478.         set match 0
  479.         set args [list normal]
  480.         set pos [getPos]
  481.         set bol [getText [lineStart $pos] $pos]
  482.         set eol [getText [expr {$pos}] [nextLineStart $pos]]
  483.         set modMode ""
  484.         # First token on the line?
  485.         if {! $match } {
  486.             if {[regexp {^([     ]*)([^     ]+)$} $bol all indent name]} {
  487.                 if {[regexp "^\[     \]*\[\r\n\]?\$" $eol all]} {
  488.                     set args [list insert "$indent" "$name"]
  489.                     set modMode "Ñ"
  490.                     set match 1
  491.                 }
  492.             }
  493.         }
  494.  
  495.         # Word token?
  496.         if {! $match && [regexp {([     ]+)([^     ]+)$} "$bol" all indent name] == 1} {
  497.             set args [list insert "" "$name"]
  498.             set match 1
  499.         }
  500.  
  501.         insertText "$bindKey"
  502.     }
  503.  
  504.     set cmnd [lindex $args 0]
  505.     set args [lreplace $args 0 0]
  506.     set argc [llength $args]
  507.  
  508.     if {$cmnd == "normal"} {
  509.         return
  510.     }
  511.  
  512.     set indent [lindex $args 0]
  513.     set name [lindex $args 1]
  514.     set match 0
  515.  
  516.     # Ñ mode template?
  517.     if {$match == 0 && $modMode == "Ñ" && [info exists ALIAS($modMode$aliasmode,$name)] == 1} {
  518.         set defn "$ALIAS($modMode$aliasmode,$name)"
  519.         set match 1
  520.     }
  521.  
  522.     # embedded word template?
  523.     if {$match == 0 && [info exists ALIAS($aliasmode,$name)] == 1} {
  524.         set defn "$ALIAS($aliasmode,$name)"
  525.         set match 2
  526.     }
  527.  
  528.     # nil mode Ñ definition matches everything iff non-nil aliasmode
  529.     if {$match == 0 && $modMode == "Ñ"  && $aliasmode != "" && [info exists ALIAS(Ñ,$name)] == 1} {
  530.         set defn "$ALIAS(Ñ,$name)"
  531.         set match 3
  532.     }
  533.  
  534.     # nil mode matches everything
  535.     if {$match == 0 && [info exists ALIAS(,$name)] == 1} {
  536.         set defn "$ALIAS(,$name)"
  537.         set indent ""
  538.         set match 4
  539.     }
  540.  
  541.     # Next line for debug:
  542.     #message "$modMode $aliasmode $name -> $match"
  543.  
  544.     # return if no aliases found
  545.     if {$match == 0} { 
  546.         return
  547.     }
  548.  
  549.     # Perform substitutions
  550.     set limit 99
  551.     set doAnotherSubstitute 1
  552.     while {$doAnotherSubstitute} {
  553.         set doAnotherSubstitute 0
  554.         # substitute commands ñ╟TCL_COMMAND╚
  555.         while {[regexp {ñ╟([^╚]+)╚} $defn all text] == 1} {
  556.             global _text
  557.             global _returnText
  558.             set _text $text
  559.             set _returnText ""
  560.             set errcode [uplevel #0 {catch $_text _returnText}]
  561.             if {$errcode != 0} {
  562.                 set _returnText "ñERROR $errcode($_text->$_returnText)"
  563.             }
  564.             regsub {ñ╟([^╚]+)╚} $defn $_returnText defn
  565.             set doAnotherSubstitute 1
  566.             if {[incr limit -1] <= 0} {
  567.                 error "Too many electricAlias command substitutions"
  568.             }
  569.             unset _text
  570.             unset _returnText
  571.         }
  572.         #endwhile substitute cmds
  573.  
  574.         # substitute vars ñ{NAME}
  575.         while {[regexp {ñ\{[A-Za-z0-9_-]+\}} $defn var] == 1} {
  576.             if {[info exists ALIAS($aliasmode,$var)] == 1} {
  577.                 set repl $ALIAS($aliasmode,$var)
  578.             } else {
  579.                 # Does a global version of the variable exist?
  580.                 if {[info exists ALIAS(,$var)] == 1} {
  581.                     set repl $ALIAS(,$var)
  582.                 } else {
  583.                     set repl ""
  584.                 }
  585.             }
  586.             regsub -all $var $defn $repl defn
  587.             if {[info exists ALIAS($aliasmode,$var)] == 0 && [info exists ALIAS(,$var)] == 0} {
  588.                 alertnote "No such electricAlias variable $var"
  589.             }
  590.             set doAnotherSubstitute 1
  591.             if {[incr limit -1] <= 0} {
  592.                 alertnote "Too many electricAlias variable substitutions"
  593.             }
  594.         }
  595.         #endwhile substitute vars
  596.     }
  597.     #endwhile
  598.  
  599.     # substitute indents
  600.     regsub -all "\r" "$defn" "\r$indent" defn
  601.     set bs ""
  602.     if {[regexp "^\b+" $defn bs]} {
  603.         regsub "^\b+" "$defn" "" defn
  604.     }
  605.     while {[regsub ".\b" "$defn" "" defn]} {
  606.         ;
  607.     }
  608.     #endwhile
  609.  
  610.     # insert text and set stops
  611.     set repl "$defn"
  612.     regsub -all "Ñ" "$repl" "" repl
  613.     set epos [getPos]
  614.     set bpos [expr {$epos - [string length "$name"] - 1}]
  615.     if {"$repl" == "$defn"} {
  616.         # Assert no stops to mark
  617.         if {$bs == "" && [regexp "\[^\n\r\t \]$" $repl] == 1} {
  618.             append repl " "
  619.         }
  620.         replaceText $bpos $epos "$repl"
  621.         goto [expr {$bpos + [string length "$repl"]}]
  622.         return
  623.     }
  624.     if {$bs != "" && $indent != ""} {
  625.         incr bpos [expr {-[string length $bs]}]
  626.     }
  627.     replaceText $bpos $epos "$repl"
  628.              global stopRing
  629.     set stopRing {}
  630.     set repl "$defn"
  631.     set win [lindex [winNames] 0]
  632.     set i 1
  633.     while {[regexp -indices "Ñ" $repl I] == 1} {
  634.         regsub "Ñ" "$repl" "" repl
  635.         createTMark "${win}Ñstop$i" [expr {$bpos + [lindex $I 0]}]
  636.         lappend stopRing "${win}Ñstop$i"
  637.         incr i
  638.     }
  639.     #endwhile
  640.  
  641.     gotoTMark "${win}Ñstop1"
  642.     bind 'j' <z> nextStop
  643.     bind 'j' <zs> prevStop
  644. }
  645. #endproc electricAlias-insert
  646.  
  647. bind '\t' electricAlias-insert
  648. ################################################################################
  649.  
  650. proc electricAlias {cmnd args} {
  651.     case {[llength $args]} {
  652.       {0} {electricAlias-$cmnd}
  653.       {1} {electricAlias-$cmnd [lindex $args 0]}
  654.       {2} {electricAlias-$cmnd [lindex $args 0] [lindex $args 1]}
  655.       {3} {electricAlias-$cmnd [lindex $args 0] [lindex $args 1] [lindex $args 2]}
  656.     }
  657.     #endcase
  658.     electricAlias-$cmnd $args
  659. }
  660. #endproc electricAlias
  661. ##############################################################################
  662.  
  663.  
  664. proc getAlias {aliasmode name} {
  665.     global ALIAS
  666.     if {![info exists ALIAS($aliasmode,$name)]} {
  667.         alertnote "getAlias: ?$aliasmode $name?"
  668.         return ""
  669.     }
  670.     set repl "$ALIAS($aliasmode,$name)"
  671.  
  672.     regsub -all "\r" "$repl" "\\r" repl
  673.     regsub -all "\n" "$repl" "\\n" repl
  674.     regsub -all "\t" "$repl" "\\t" repl
  675.     regsub -all "\b" "$repl" "\\b" repl
  676.     regsub -all {\$} "$repl" "\\\$" repl
  677.     regsub -all {\{} "$repl" "\\\{" repl
  678.     regsub -all {\}} "$repl" "\\\}" repl
  679.  
  680.     regsub -all {\$} "$name" "\\\$" name
  681.     regsub -all {\{} "$name" "\\\{" name
  682.     regsub -all {\}} "$name" "\\\}" name
  683.     regsub -all {\[} "$name" "\\\[" name
  684.     regsub -all {\]} "$name" "\\\]" name
  685.  
  686.     set cmnd "var"
  687.     if {[regexp {^ñ\\\{.*\}$} $name] == 0} {
  688.         set cmnd "def"
  689.         set name "\"$name\""
  690.     }
  691.     set fmt "electricAlias-%s %-8s %-10s \{%s\}"
  692.     return [format $fmt $cmnd "\"$aliasmode\"" $name $repl]
  693. }
  694. #endproc getAlias
  695. ################################################################################
  696.  
  697. proc nextStop {} {
  698.     global stopRing
  699.     set first [lindex $stopRing 0]
  700.     set stopRing [lreplace $stopRing 0 0]
  701.     lappend stopRing $first
  702.     set next [lindex $stopRing 0]
  703.     gotoTMark $next
  704.  
  705. }
  706. #endproc nextStop
  707. ################################################################################
  708.  
  709. proc prevStop {} {
  710.     global stopRing
  711.     set end [expr {[llength $stopRing] - 1}]
  712.     set last [lindex $stopRing $end]
  713.     set stopRing [lreplace $stopRing $end $end]
  714.     set stopRing [linsert $stopRing 0 $last]
  715.     gotoTMark $last
  716. }
  717. #endproc prevStop
  718. ################################################################################
  719.  
  720.  
  721. proc askalias {prompt name args} {
  722.         global mode
  723.         set argc [llength $args]
  724.         case $argc {
  725.         0 {
  726.                 electricAlias-var $mode $name [prompt $prompt ""]
  727.         }
  728.         1 {
  729.                 set default $args
  730.                 electricAlias-var $mode $name [prompt $prompt $default]
  731.         }
  732.         {default} {
  733.                 set default [lindex $args 0]
  734.                 set title [lindex $args 1]
  735.                 set list [lrange $args 2 end]
  736. #modified so eval works with a list rda
  737. # couldn't figure how it could work otherwise
  738.                 if {[catch {eval prompt {$prompt} {$default} {$title} [join
  739. $list]} retvar]} then {
  740.                         set retvar "*"
  741.                         }
  742.                 electricAlias-var $mode $name $retvar
  743. #               electricAlias-var $mode $name [prompt $prompt $default
  744. $title $list]
  745.                 }
  746.         }
  747.         return ""
  748. }
  749. # proc askalias {prompt name args} {
  750. #     global mode
  751. #     set argc [llength $args]
  752. #     case $argc {
  753. #     0 {
  754. #         electricAlias-var $mode $name [prompt $prompt ""]
  755. #     }
  756. #     1 {
  757. #         set default $args
  758. #         electricAlias-var $mode $name [prompt $prompt $default]
  759. #     }
  760. #     {default} {
  761. #         set default [lindex $args 0]
  762. #         set title [lindex $args 1]
  763. #         set list [lrange $args 2 end]
  764. #         electricAlias-var $mode $name [prompt $prompt $default $title $list]
  765. #     }
  766. #     }
  767. #     return ""
  768. # }
  769. #endproc askalias
  770. ################################################################################
  771.  
  772. if {![file isdirectory "$HOME:TCL:electricAlias:Aliases"]} {
  773.     mkdir $HOME:TCL:electricAlias:Aliases
  774. }
  775.  
  776. if {[file readable "$HOME:TCL:electricAlias:Aliases:Aliases"]} {
  777.     source $HOME:TCL:electricAlias:Aliases:aliases
  778. } else {
  779.     alertnote "No default file $HOME:TCL:electricAlias:Aliases:aliases"
  780. }
  781.  
  782. # NOTE: electricAlias-changeMode is the OLD version
  783. #       It was renamed to prevent collistion with anything else.
  784. #       Due to the way this must work, it seems like the names
  785. #       are backwards.
  786.  
  787. if {[info procs electricAlias-changeMode] != "electricAlias-changeMode"} {
  788.  
  789.     rename changeMode electricAlias-changeMode
  790.  
  791. proc changeMode {newMode} {
  792.     electricAlias-changeMode $newMode
  793.     global mode
  794.     global HOME
  795.     if {![electricAlias-exists "Ñ$mode" "Ñ$mode"] &&
  796.          [file readable "$HOME:TCL:electricAlias:Aliases:aliases.$mode"]} {
  797.         source "$HOME:TCL:electricAlias:Aliases:aliases.$mode"
  798.     }
  799.     electricAlias-mode "$mode"
  800. }
  801. #endproc changeMode
  802.  
  803. }
  804. #endif
  805. ################################################################################
  806.  
  807. set wins [winNames -f]
  808. if {[llength $wins]} {
  809.     activateHook [lindex $wins 0]
  810. }
  811.  
  812. #message ""
  813.